home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
dev
/
amos
/
AMOS1097.lzh
/
AMOSLIST
/
000098_amos-request@svcs1.digex.net_Thu Oct 9 03:27:50 1997.msg
< prev
next >
Wrap
Internet Message Format
|
1997-11-02
|
5KB
Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id DAA04699
for <mcox@access.digex.net>; Thu, 9 Oct 1997 03:27:47 -0400 (EDT)
Received: (from daemon@localhost)
by svcs1.digex.net (8.8.5/8.8.5) id BAA14434
for amos-out; Thu, 9 Oct 1997 01:13:01 -0400 (EDT)
Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id BAA14431
for <amos-list@svcs1.digex.net>; Thu, 9 Oct 1997 01:13:01 -0400 (EDT)
Received: from mail.redrose.net (mail.redrose.net [204.249.184.22])
by mail2.access.digex.net (8.8.5/8.8.5) with SMTP id BAA16392
for <amos-list@access.digex.net>; Thu, 9 Oct 1997 01:13:00 -0400 (EDT)
Received: (qmail 29273 invoked from network); 9 Oct 1997 05:13:47 -0000
Received: from herp1-42.redrose.net (HELO redrose.net) (mushy-pd@208.7.248.170)
by mail.redrose.net with SMTP; 9 Oct 1997 05:13:47 -0000
From: Mush <mushypd@redrose.net>
Reply-To: mushypd@redrose.net
To: amos-list@access.digex.net
Date: Thu, 09 Oct 1997 00:41:22 +0500
Message-ID: <yam7221.1145.3862960@mail.redrose.net>
In-Reply-To: <yam7220.1778.3423568@post.demon.co.uk>
X-Mailer: YAM 1.3.4 [020] - Amiga Mailer by Marcel Beck
Organization: Mushroom PD - AMOS Public Domain Library
Subject: Re: CD32 Pads
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-MIME-Autoconverted: from quoted-printable to 8bit by svcs1.digex.net id BAA14432
Status: O
X-Status:
The man most directly responsible for this twaddle was Andy Gibson, who did
thus comment on CD32 Pads on the night of 08-Oct-97:
-> Why not make use of the CD�� Joypad routine? I think MUSH may have
-> this lying around, if not I do and it works 100%.
Yup, i have it, and here it is. You'll need LOWLEVEL.LIBRARY in your LIBS:
drawer!!
'
' CD32 Joypad
'
' (c) K.Hill, Jan 1996
'
'
'structures begin
'
'Const JPF_BUTTON_FORWARD=$80000
'Const JPF_LEFT = 2
'Const JPF_JOY_UP = 8
'Const JPF_BUTTON_REVERSE = $40000
'Const JPF_DOWN = 4
'Const JPF_JOY_RIGHT = 1
'Const JPF_JOY_LEFT = 2
'Const JPF_BUTTON_GREEN = $100000
'Const JPF_BUTTON_YELLOW = $200000
'Const JPF_JOY_DOWN = 4
'Const JPF_BUTTON_BLUE = $800000
'Const JPF_UP = 8
'Const JPF_BUTTON_PLAY = $20000
'Const JPF_BTN1 = $800000
'Const JPF_BTN2 = $400000
'Const JPF_BTN3 = $200000
'Const JPF_BTN4 = $100000
'Const JPF_BTN5 = $80000
'Const JPF_RIGHT = 1
'Const JPF_BTN6 = $40000
'Const JPF_BTN7 = $20000
'Const JPF_BUTTON_RED = $400000
'
'Structures Constants
Global __JPF_BUTTON_FORWARD,__JPF_LEFT,__JPF_JOY_UP
__JPF_BUTTON_FORWARD=524288 : __JPF_LEFT=2 : __JPF_JOY_UP=8
Global __JPF_BUTTON_REVERSE,__JPF_DOWN,__JPF_JOY_RIGHT
__JPF_BUTTON_REVERSE=262144 : __JPF_DOWN=4 : __JPF_JOY_RIGHT=1
Global __JPF_JOY_LEFT,__JPF_BUTTON_GREEN,__JPF_BUTTON_YELLOW
__JPF_JOY_LEFT=2 : __JPF_BUTTON_GREEN=1048576 : __JPF_BUTTON_YELLOW=2097152
Global __JPF_JOY_DOWN,__JPF_BUTTON_BLUE,__JPF_UP
__JPF_JOY_DOWN=4 : __JPF_BUTTON_BLUE=8388608 : __JPF_UP=8
Global __JPF_BUTTON_PLAY,__JPF_BTN1,__JPF_BTN2
__JPF_BUTTON_PLAY=131072 : __JPF_BTN1=8388608 : __JPF_BTN2=4194304
Global __JPF_BTN3,__JPF_BTN4,__JPF_BTN5,__JPF_RIGHT
__JPF_BTN3=2097152 : __JPF_BTN4=1048576 : __JPF_BTN5=524288 : __JPF_RIGHT=1
Global __JPF_BTN6,__JPF_BTN7,__JPF_BUTTON_RED
__JPF_BTN6=262144 : __JPF_BTN7=131072 : __JPF_BUTTON_RED=4194304
'structures end
Lib Open 1,"lowlevel.library",40
Dreg(0)=1
While 1
Z=Lib Call(1,-30)
If Z and __JPF_BUTTON_BLUE Then Print "Blue"
If Z and __JPF_BUTTON_RED Then Print "Red"
If Z and __JPF_BUTTON_GREEN Then Print "Green"
If Z and __JPF_BUTTON_YELLOW Then Print "Yellow"
If Z and __JPF_BUTTON_PLAY Then Print "Play"
If Z and __JPF_BUTTON_FORWARD Then Print "FF"
If Z and __JPF_BUTTON_REVERSE Then Print "Rew"
If Z and __JPF_JOY_DOWN Then Print "Down"
If Z and __JPF_JOY_UP Then Print "Up"
If Z and __JPF_JOY_LEFT Then Print "Left"
If Z and __JPF_JOY_RIGHT Then Print "Right"
Wend
Andrew "Mushroom" Kellett
--
Email: Andy Kellett <mushypd@redrose.net> Team *AMOS* + IAPA Team *AMIGA*
alt.religion.amos - AMOS now on usenet! AMOS Mailinglist also mirrored
World's Largest AMOS Homepages - http://www.mushy-pd.demon.co.uk
Massive FTP site with AMOS/C64 and Mods/Samples + more at
mushy-pd.dyn.ml.org